home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oh!X 2001 Spring
/
Oh!X 2001 Spring Special CD-ROM (Japan).7z
/
Oh!X 2001 Spring Special CD-ROM (Japan) (Track 1).bin
/
CGI
/
list5.cgi
< prev
Wrap
Text File
|
2000-10-28
|
1KB
|
54 lines
#!/usr/local/bin/perl
require "cgi-lib.pl";
#---------------------------------------
#REFERER LOGGER
# by de. 2000
#---------------------------------------
my $referer; #REFERER文字列が入る変数
my @queue;#URL11個の配列
my $myself="http://web.pe.to/~deyamato"; #省くアドレス
my $logfilename="refererlog.dat";
#画像を表示
open(GIF,"./banner.gif");
@gifdata = stat("./banner.gif");
$byte = $gifdata[7];
print "Content-type: image/gif\n";
print "Content-length: $byte\n\n";
print <GIF>;
close(GIF);
##--
#QUERY文字列からハッシュを作る
&ReadParse(*input);
@val = split(/&/,$input);
foreach $i(0 .. $#val){
$val[$i] =~ s/%(..)/pack("c",hex($1))/ge;
($name,$value) = split(/=/,$val[$i],2);
$value =~ s/\+/ /g;
$val{$name} = $value;
}
#エラーログファイルを開く
open(ERRLOG,">rlog_err.log");
if(exists($val{"referer"})){
$referer=$val{"referer"};
}
if($referer =~ /^http:\/\//){
if(!($referer =~ /$myself/)){
Getlogfile($referer);
}
}
#終わり処理
close(ERRLOG);
exit(0);
sub Getlogfile{
(以下リスト2と同じ)